home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 3 / Light ROM 3 - Disc 2.iso / programs / amiga / dps / par252.lha / rexx / FadeList.ddr < prev    next >
Text File  |  1994-07-23  |  2KB  |  124 lines
  1. /*
  2. ** FadeList
  3. **
  4. ** $VER: FadeList 1.0.1 (21.7.94)
  5. **
  6. ** This script requires ADPro v2.5.0 (or higher).
  7. **
  8. ** Some code stolen from ASDG, Incorporated.   I am the great cornholio, are you threatening me?
  9. */
  10.  
  11. destdir='DD1:FadeAnims'
  12. count=16
  13.  
  14. OPTIONS RESULTS
  15.  
  16. ADDRESS "ADPro"
  17. TempDefaults = "T:TempADProDefaults"
  18. SAVE_DEFAULTS TempDefaults
  19.  
  20. /***** set up par *****/
  21. address ddr
  22.  mode anim
  23.  filter
  24.  oldfilter=result
  25.  filter off
  26.  translate on
  27.  exporter iff
  28. address
  29.  
  30. /***** read filelist *****/
  31. if Open(fh,'SYS:FadeList','R')=0 then do
  32.     say 'Failed to open RAM:FileList'
  33.     call ErrorOut 10
  34. end
  35. cnt=0
  36. do while ~Eof(fh)
  37.     files.cnt=ReadLn(fh)
  38.     if ~Exists(files.cnt) then do
  39.         say files.cnt 'does not exist.'
  40.         call ErrorOut 10
  41.     end
  42.     cnt=cnt+1
  43. end
  44. call Close(fh)
  45. cnt=cnt-2
  46. if cnt<1 then do
  47.     say 'Not enough files'
  48.     call ErrorOut 10
  49. end
  50. /**** do the loop thing *****/
  51.  
  52. do f=0 to cnt-1
  53.  
  54.     source1=files.f
  55.     n=f+1
  56.     source2=files.n
  57.  
  58.     address ddr
  59.      file source1
  60.      if result='' then call ErrorOut 20
  61.      frames
  62.      frms=result
  63.      if frms<count then call ErrorOut 20
  64.      s=frms-count
  65.      if f=0 then do
  66.         copy source1 destdir /* copy the first anim */
  67.         parse var source1 d'/'filename
  68.         maindestfile=destdir'/'filename
  69.      end
  70.      file maindestfile
  71.      frames
  72.      frms=result
  73.      s2=frms-count
  74.      delete maindestfile s2+1 frms
  75.      append on
  76.     address
  77.  
  78.     fval=0    /* reset fade % value */
  79.     do i=1 to count
  80.         LOAD_TYPE 'REPLACE'
  81.         LOADER 'BACKDROP' 'XXX' 752 480 COLOR
  82.         LOAD_TYPE 'COMPOSE'
  83.         LOADER 'UNIVERSAL' source1'.'s COMPMIX trunc(100-fval)
  84.         if rc~=0 then do
  85.             say 'Unable to load image'
  86.             call ErrorOut 10
  87.         end
  88.         LOADER 'UNIVERSAL' source2'.'i COMPMIX trunc(fval)
  89.         if rc~=0 then do
  90.             say 'Unable to load image'
  91.             call ErrorOut 10
  92.         end
  93.         SAVER "IFF" destdir'/temp.'i 'RAW'
  94.         fval=fval+(100/count)
  95.         s=s+1
  96.     end
  97.     address ddr
  98.      done
  99.      append off
  100.      copy source2 destdir count+1 1000000
  101.      parse var source2 d'/'filename
  102.      newfile=destdir'/'filename
  103.      join maindestfile newfile
  104.     address
  105. end
  106.  
  107. address ddr filter oldfilter
  108. CALL ErrorOut 0
  109.  
  110. ErrorOut:
  111.     PARSE ARG ExitCode
  112.  
  113.     IF (EXISTS( TempDefaults )) THEN DO
  114.         LOAD_DEFAULTS TempDefaults
  115.         IF (RC ~= 0) THEN DO
  116.             ADPRO_TO_FRONT
  117.             OKAY1 "Error restoring settings."
  118.         END
  119.  
  120.         ADDRESS COMMAND "Delete >NIL:" TempDefaults
  121.     END
  122.  
  123.     EXIT ExitCode
  124.